home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tcl7.4 / panic.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-18  |  1.4 KB  |  56 lines
  1. /* 
  2.  * panic.c --
  3.  *
  4.  *    Source code for the "panic" library procedure for Tcl;
  5.  *    individual applications will probably override this with
  6.  *    an application-specific panic procedure.
  7.  *
  8.  * Copyright (c) 1988-1993 The Regents of the University of California.
  9.  * Copyright (c) 1994 Sun Microsystems, Inc.
  10.  *
  11.  * See the file "license.terms" for information on usage and redistribution
  12.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13.  */
  14.  
  15. #ifndef lint
  16. static char sccsid[] = "@(#) panic.c 1.6 94/12/17 16:14:02";
  17. #endif
  18.  
  19. #include <stdio.h>
  20. #ifdef NO_STDLIB_H
  21. #   include "compat/stdlib.h"
  22. #else
  23. #   include <stdlib.h>
  24. #endif
  25.  
  26. /*
  27.  *----------------------------------------------------------------------
  28.  *
  29.  * panic --
  30.  *
  31.  *    Print an error message and kill the process.
  32.  *
  33.  * Results:
  34.  *    None.
  35.  *
  36.  * Side effects:
  37.  *    The process dies, entering the debugger if possible.
  38.  *
  39.  *----------------------------------------------------------------------
  40.  */
  41.  
  42.     /* VARARGS ARGSUSED */
  43. void
  44. panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
  45.     char *format;        /* Format string, suitable for passing to
  46.                  * fprintf. */
  47.     char *arg1, *arg2, *arg3;    /* Additional arguments (variable in number)
  48.                  * to pass to fprintf. */
  49.     char *arg4, *arg5, *arg6, *arg7, *arg8;
  50. {
  51.     (void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
  52.         arg7, arg8);
  53.     (void) fflush(stderr);
  54.     abort();
  55. }
  56.